Option Explicit
Sub A_Sample070()
    Dim myObjs   As New Collection
    Dim myObj1   As Object
    Dim myObj2   As Object
    Dim myObjStr As String
    myObjStr = "objName"
    With myObjs
        .Add myObj1, myObjStr
    'ǳƨ즹
        Set myObj2 = .Item(.Count)
    End With
    If myObj2 Is Nothing Then
        MsgBox "ѩoO@ӽdҡAҥHLkܡC"
    Else
        MsgBox myObj2.Name
    End If
    Set myObj1 = Nothing		'
    Set myObj2 = Nothing
    Set myObjs = Nothing
End Sub
